      MODULE iniestdm_I
      INTERFACE
!...Translated by Pacific-Sierra Research 77to90  4.3E  14:04:58   1/ 3/07
!...Modified by Charlotte Froese Fischer
!                     Gediminas Gaigalas  10/05/17
      SUBROUTINE INIESTdm (nmax, ncf, NIV, BASIS, hmx)
      USE vast_kind_param,ONLY: DOUBLE
      INTEGER, INTENT(IN):: nmax, ncf, niv
      REAL(DOUBLE), DIMENSION(*) :: basis, hmx
      END SUBROUTINE  INIESTDM
      END INTERFACE
      END MODULE
